home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 098 / eds.arc / EDSDPNTS.LSP < prev    next >
Encoding:
Text File  |  1980-01-01  |  411 b   |  20 lines
  1. ;This function is similar to IBM CADAM's "define points".
  2. ;After selecting a line it places a point at each of`
  3. ;of the endpoints.
  4. ;
  5. ;Function name - "EDSENDPT.LSP"  Execution command - "EP"
  6. ;
  7. ;Written by Steve Brown
  8. ;
  9. ;
  10. (defun C:EP ( )
  11.    (entsel)
  12.    (setq c (entget(entnext)))
  13.    (setq a (cdr(assoc '10 c)))
  14.    (setq b (cdr(assoc '11 c)))
  15.    (command "point" a)
  16.    (command "point" b)
  17. )
  18.  
  19.  
  20.